home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
cbv226.zip
/
SURVEY.Q-A
< prev
Wrap
Text File
|
1990-06-01
|
3KB
|
126 lines
ClearScreen
ChangeColor 14 0
Display "New User Survey|"
ChangeColor 3 0
Display "~~~~~~~~~~~~~~~||"
Display "This information should remain confidential to the Sysop, however|"
Display "this is not guaranteed. Completing this survey is optional and is|"
Display "used to calculate averages pertaining to the users of the system.|"
Display "Do not complete this survey if you feel any of the submitted in-|"
Display "formation would be determental to your business, reputation, etc!|"
Display "You are given the choice whether you want to save your answers or|"
Display "not at the end of the survey.|"
Display "||(P.S. This is not a test! -grin-)||"
ChangeColor 14 0
Display "Please choose your computer below:|"
ChangeColor 3 0
Display "1. IBM PC/XT or CLONE|"
Display "2. IBM AT or CLONE|"
Display "3. 80386 SYSTEM|"
Display "4. PS/2|"
Display "5. Other MS-DOS based system|"
Display "6. Non MS-DOS system|? "
GetChoice 123456 1
ChangeColor 14 0
Display "|Do you own a laptop or portable (Y/N)? "
ChangeColor 3 0
GetChoice YN 2
ChangeColor 14 0
Display "|What is your age (please be honest)? "
ChangeColor 3 0
Ask 2 3
ChangeColor 14 0
Display "|What is your sex (M/F)? "
ChangeColor 3 0
GetChoice MF 4
ChangeColor 14 0
Display "|Do you do any programming (Y/N)? "
ChangeColor 3 0
GetChoice YN 20
If 20 = "Y"
ChangeColor 14 0
Display "|What language(s) do you program in?|: "
ChangeColor 3 0
Ask 65 5
EndIf
ChangeColor 14 0
Display "|Do you run a BBS (Y/N)? "
ChangeColor 3 0
GetChoice YN 19
If 19 = "Y"
ChangeColor 14 0
Display "|What is the name and number of your BBS?|: "
ChangeColor 3 0
Ask 65 6
ChangeColor 14 0
Display "|Is it OK to add your system to our BBS list (Y/N)? "
ChangeColor 3 0
GetChoice YN 18
EndIf
ChangeColor 14 0
Display "|What are your other interests, hobbies, favorite activities,|"
Display "etc... Non-computer stuff... (2 lines)|"
ChangeColor 3 0
Display "1: "
Ask 65 7
ChangeColor 3 0
Display "2: "
Ask 65 8
ChangeColor 14 0
Display "|What do you look for on most BBS's?|: "
ChangeColor 3 0
Ask 65 9
ChangeColor 14 0
Display "|How long have you been calling BBS's?|: "
ChangeColor 3 0
Ask 65 12
ChangeColor 14 0
Display "|What is the name of your terminal/telecom program?|: "
ChangeColor 3 0
Ask 20 11
ChangeColor 14 0
Display "|End of survey! Do you want the system to R)ecord or D)iscard|"
Display "your answers (R/D)? "
ChangeColor 3 0
GetChoice RD 20
If 20 = "R"
PostInfo
OutputAnswer "Computer : " 1
OutputAnswer "Laptop : " 2
OutputAnswer "Age : " 3
OutputAnswer "Sex : " 4
OutputAnswer "Programing: " 5
OutputAnswer "BBS : " 6
OutputAnswer "Ok to list: " 18
OutputAnswer "Interests : " 7
OutputAnswer " : " 8
OutputAnswer "Looks for : " 9
OutputAnswer "How long : " 12
OutputAnswer "Terminal : " 11
ChangeColor 15 0
Display "|Answers saved!|"
ChangeColor 7 0
EndIf
If 20 = "D"
ChangeColor 15 0
Display "|Answers discarded.|"
ChangeColor 7 0
EndIf
SetFlag A8 OFF